Option Explicit
Sub G_Sample006()
    Dim myShp As Shape
    Dim mySht As Worksheet
    Dim myPi  As Double
    Dim i     As Long
    Dim j     As Long
    Set mySht = Worksheets.Add					'u@sW
    With mySht
        For Each myShp In .Shapes
          myShp.Delete
        Next
        myPi = WorksheetFunction.Pi
        'sWAutoShape]wΪPjp^
        Set myShp = .Shapes.AddShape(Type:=msoShape5pointStar, _
        	    Left:=100, Top:=100, Width:=100, Height:=100)
    End With
    With myShp
        'wmPʶZ
        For i = 1 To 2000 Step 5
           .Top = Sin(i * (myPi / 180)) * 100 + 200
           .Left = Cos(i * (myPi / 180)) * 100 + 200
           .Fill.ForeColor.RGB = i * 100
           For j = 1 To 5
                .IncrementRotation 2
                DoEvents
           Next
        Next
    End With
End Sub
